home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 1997 Winter - Disc 1
/
HYPERLIB-1997-Winter-CD1.ISO.7z
/
HYPERLIB-1997-Winter-CD1.ISO
/
オンラインウェア
/
PRG
/
PowerFantasm 4.10 unreg.sit
/
PowerFantasm 410 unreg
/
PowerFantasm™
/
Fantasm V4 headers
/
Events.def
< prev
next >
Wrap
Text File
|
1996-06-21
|
3KB
|
82 lines
**For use with Fantasm and PowerFantasm V4 from Lightsoft.
nullEvent EQU 0
mouseDown EQU 1
mouseUp EQU 2
keyDown EQU 3
keyUp EQU 4
autoKey EQU 5
updateEvt EQU 6
diskEvt EQU 7
activateEvt EQU 8
osEvt EQU 15
; event mask equates
mDownMask EQU $0002 ; mouse button pressed
mUpMask EQU $0004 ; mouse button released
keyDownMask EQU $0008 ; key pressed
keyUpMask EQU $0010 ; key released
autoKeyMask EQU $0020 ; key repeatedly held down
updateMask EQU $0040 ; window needs updating
diskMask EQU $0080 ; disk inserted
activMask EQU $0100 ; activate/deactivate window
highLevelEventMask EQU $0400 ; high-level events (includes AppleEvents)
osMask EQU $8000 ; operating system events (suspend, resume)
everyEvent EQU $FFFF ; all of the above
; event message equates
charCodeMask EQU $000000FF
keyCodeMask EQU $0000FF00
adbAddrMask EQU $00FF0000
osEvtMessageMask EQU $FF000000
; OS event messages. Event (sub)code is in the high byte of the message field.
mouseMovedMessage EQU $00FA
suspendResumeMessage EQU $0001
resumeFlag EQU 1 ; Bit 0 of message indicates resume vs suspend
convertClipboardFlag EQU 2 ; Bit 1 in resume message indicates clipboard change
; modifiers
activeFlag EQU $0001 ; Bit 0 of modifiers for activateEvt and mouseDown events
btnState EQU $0080 ; Bit 7 of low byte is mouse button state
cmdKey EQU $0100 ; Bit 0 of high byte
shiftKey EQU $0200 ; Bit 1 of high byte
alphaLock EQU $0400 ; Bit 2 of high byte
optionKey EQU $0800 ; Bit 3 of high byte
controlKey EQU $1000 ; Bit 4 of high byte
; obsolete equates
networkEvt EQU 10
driverEvt EQU 11
app1Evt EQU 12
app2Evt EQU 13
app3Evt EQU 14
app4Evt EQU 15
networkMask EQU $0400
driverMask EQU $0800
app1Mask EQU $1000
app2Mask EQU $2000
app3Mask EQU $4000
app4Mask EQU $8000
if PPC
IMPORT GetDblTime
IMPORT GetCaretTime
IMPORT SetEventMask
IMPORT GetEventQueue
IMPORT GetNextEvent
IMPORT WaitNextEvent
IMPORT EventAvail
IMPORT GetMouse
IMPORT Button
IMPORT StillDown
IMPORT WaitMouseUp
IMPORT GetKeys
IMPORT KeyTranslate
IMPORT TickCount
IMPORT PostEvent
IMPORT PPostEvent
IMPORT OSEventAvail
IMPORT GetOSEvent
IMPORT FlushEvents
IMPORT SystemClick
IMPORT SystemTask
IMPORT SystemEvent
endif